home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / ptv1n4.arc / SHIFT.PAS < prev    next >
Pascal/Delphi Source File  |  1990-09-13  |  543b  |  11 lines
  1. FUNCTION ShiftDWordRight(Target : LongInt; 
  2.                          ShiftBy : Integer) : LongInt;
  3.  
  4. INLINE($59/            { POP CX    Pop ShiftBy value into CX }
  5.        $58/            { POP AX    Pop LSW of target into AX }
  6.        $5A/            { POP DX    Pop MSW of target into DX }
  7.        $F8/            { CLC       Clear carry flag }
  8.        $D1/$DA/        { RCR DX,1  Rotate DX thru carry flag }
  9.        $D1/$D8/        { RCR AX,1  Rotate AX thru carry flag }
  10.        $E2/$FA);       { LOOP -6   DEC CX; Loop if CX > 0    }
  11.